The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/The Treasure Hunt/thpb.Dxr/00031.ls

Text File | 1994-09-16 | 2.6 KB | 106 lines

on colourin
  global which
  put the clickOn
  set the castNum of sprite 48 to the clickOn + 123
  put the castNum of sprite 48
  puppetSound("paint")
  cursor(200)
  set the locH of sprite 48 to the mouseH
  set the locV of sprite 48 to the mouseV
  updateStage()
  if which = "run" then
    colourinrun()
  else
    if which = "skelly" then
      colourinskelly()
    else
      if which = "monster" then
        colourinmonster()
      else
        if which = "nelson" then
          colourinnelson()
        end if
      end if
    end if
  end if
end

on colourinrun
  global colour
  set vestc to the foreColor of sprite 25
  set tailc to the foreColor of sprite 24
  set shoec to the foreColor of sprite 23
  set legsc to the foreColor of sprite 22
  set bodyc to the foreColor of sprite 21
  set lastRoll to 0
  repeat while the mouseDown
    set the locH of sprite 48 to the mouseH
    set the locV of sprite 48 to the mouseV
    if rollOver(12) then
      if lastRoll <> 12 then
        set the foreColor of sprite 25 to colour
        puppetSound("contact")
        set lastRoll to 12
      end if
    else
      if lastRoll = 12 then
        set the foreColor of sprite 25 to vestc
        set lastRoll to 0
      end if
    end if
    if rollOver(20) then
      if lastRoll <> 20 then
        set the foreColor of sprite 24 to colour
        puppetSound("contact")
        set lastRoll to 20
      end if
    else
      if lastRoll = 20 then
        set the foreColor of sprite 24 to tailc
        set lastRoll to 0
      end if
    end if
    if rollOver(26) or rollOver(27) then
      if lastRoll <> 26 then
        puppetSound("contact")
        set the foreColor of sprite 23 to colour
        set lastRoll to 26
      end if
    else
      if lastRoll = 26 then
        set the foreColor of sprite 23 to shoec
        set lastRoll to 0
      end if
    end if
    if rollOver(18) or rollOver(19) then
      if lastRoll <> 18 then
        puppetSound("contact")
        set the foreColor of sprite 22 to colour
        set lastRoll to 18
      end if
    else
      if lastRoll = 18 then
        set the foreColor of sprite 22 to legsc
        set lastRoll to 0
      end if
    end if
    if rollOver(13) or rollOver(14) or rollOver(15) or rollOver(16) or rollOver(17) then
      if lastRoll <> 13 then
        set the foreColor of sprite 21 to colour
        puppetSound("contact")
        set lastRoll to 13
      end if
    else
      if lastRoll = 13 then
        set the foreColor of sprite 21 to bodyc
        set lastRoll to 0
      end if
    end if
    updateStage()
  end repeat
  set the locH of sprite 48 to -90
  set the locH of sprite 48 to -90
  updateStage()
  cursor(-1)
end